home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_gui / dd_gadgets / dd_text.e < prev    next >
Text File  |  1995-10-29  |  2KB  |  61 lines
  1. OPT MODULE
  2.  
  3. MODULE 'utility'
  4. MODULE 'utility/tagitem'
  5. MODULE 'intuition/intuition'
  6. MODULE 'gadtools'
  7. MODULE 'libraries/gadtools'
  8. MODULE 'intuition/icclass'
  9. MODULE 'intuition/imageclass'
  10. MODULE 'intuition/gadgetclass'
  11. MODULE 'intuition/screens'
  12.  
  13. EXPORT OBJECT text
  14.   gadget:PTR TO gadget
  15. ENDOBJECT
  16.  
  17. EXPORT ENUM
  18.   DD_GADGET_DUMMY=TAG_USER,
  19.   DD_GADGET_PREVIOUS,
  20.   DD_GADGET_VISUAL,
  21.   DD_GADGET_IMMEDIATE,
  22.   DD_GADGET_LEFT,
  23.   DD_GADGET_TOP,
  24.   DD_GADGET_WIDTH,
  25.   DD_GADGET_HEIGHT,
  26.   DD_GADGET_TEXT,
  27.   DD_DRAWINFO,
  28.   DD_STRINGS,
  29.   DD_WINDOW
  30.  
  31. EXPORT PROC new(taglist=NIL:PTR TO tagitem) OF text
  32.   DEF previous
  33.   DEF visual
  34.   previous:=GetTagData(DD_GADGET_PREVIOUS,0,taglist)
  35.   visual:=GetTagData(DD_GADGET_VISUAL,0,taglist)
  36.   IF (previous<>0) AND (visual<>0)
  37.     self.gadget:=CreateGadgetA(TEXT_KIND,previous,
  38.     [GetTagData(DD_GADGET_LEFT,0,taglist),
  39.      GetTagData(DD_GADGET_TOP,0,taglist),
  40.      GetTagData(DD_GADGET_WIDTH,0,taglist),
  41.      GetTagData(DD_GADGET_HEIGHT,0,taglist),
  42.      GetTagData(DD_GADGET_TEXT,0,taglist),
  43.      0,"NR",PLACETEXT_IN,visual,0]:newgadget,[
  44.       GTTX_BORDER,TRUE,
  45.       GTTX_CLIPPED,TRUE,
  46.       GTTX_TEXT,'hello',
  47.       TAG_DONE
  48.      ])
  49.   ENDIF
  50. ENDPROC
  51.  
  52. EXPORT PROC end() OF text IS EMPTY
  53.  
  54. EXPORT PROC lastgadget(taglist=NIL) OF text IS self.gadget
  55. EXPORT PROC change(taglist=NIL) OF text
  56.   PrintF('$\h\n',GetTagData(DD_WINDOW,0,taglist))
  57.   Gt_SetGadgetAttrsA(self.gadget,GetTagData(DD_WINDOW,0,taglist),0,[GTTX_TEXT,'bla',GTTX_BORDER,TRUE,GTTX_CLIPPED,TRUE,TAG_DONE])
  58. ENDPROC
  59.  
  60.  
  61.